home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / comm / ums / pint.lha / UMS / Rexx / DFA.pint < prev    next >
Text File  |  1997-03-04  |  2KB  |  71 lines
  1. /*
  2.  
  3.     $VER: DFA.pint 1.0 (27.8.95)
  4.  
  5.    Author:
  6.     Matthias Scheler <tron@lyssa.owl.de>
  7.  
  8.    Updated for PINT (22.2.97):
  9.     Magnus Heino (nd95mho@Student.HGS.SE)
  10.  
  11.    Function:
  12.     Lets DFA handle PINT's address book
  13.  
  14.    History:
  15.     0.1   initial version
  16.     0.2   added "ADD" handling
  17.     0.3   fixed bug in "QUERY" handling
  18.     1.0   released with IntuiNews 1.3
  19.  
  20.    Requires:
  21.     UMSServer 11.28 or newer
  22.     ums.library 11.18 or newer
  23.     DFA 2.25 or newer, at least server running
  24.  
  25.    Example for "ums.config":
  26.     ( PINT.Book "!DFA.pint" )
  27.  
  28. */
  29.  
  30. IF ~SHOW('P','DFA') THEN EXIT 10
  31.  
  32. PARSE ARG Command " " Name "," Addr "," Comment
  33.  
  34. OPTIONS RESULTS
  35. SIGNAL ON ERROR
  36.  
  37. IF Command="QUERY" THEN
  38.  DO
  39.   ADDRESS 'DFA' 'FIRST STEM ADR.'
  40.  
  41.   IF ADR.ADDRESS.24 = 0 THEN ADDRESS 'DFA' 'NEXTSEL STEM ADR.'
  42.  
  43.   DO WHILE 1
  44.    IF ADR.ADDRESS.12~="" THEN
  45.     'ADD "'||ADR.ADDRESS.1 ADR.ADDRESS.2||'" "'||ADR.ADDRESS.12||'" "'||ADR.ADDRESS.15||'"'
  46.    IF ADR.ADDRESS.13~="" THEN
  47.     'ADD "'||ADR.ADDRESS.1 ADR.ADDRESS.2||'" "'||ADR.ADDRESS.13||'" "'||ADR.ADDRESS.15||'"'
  48.    IF ADR.ADDRESS.14~="" THEN
  49.     'ADD "'||ADR.ADDRESS.1 ADR.ADDRESS.2||'" "'||ADR.ADDRESS.14||'" "'||ADR.ADDRESS.15||'"'
  50.  
  51.    ADDRESS 'DFA' 'NEXTSEL STEM ADR.'
  52.   END
  53.  END
  54.  
  55. IF Command="ADD" THEN
  56.  DO
  57.   P=LASTPOS(" ",Name)
  58.   IF P=0 THEN First=""
  59.   ELSE
  60.    DO
  61.     First=LEFT(Name,P-1)
  62.     Name=SUBSTR(Name,P+1)
  63.    END
  64.  
  65.   ADDRESS 'DFA' 'POPUP'
  66.   ADDRESS 'DFA' 'NEW FIRST "'||First||'" NAME "'||Name||'" EMAIL1 "'||Addr||'" COMMENT "'||Comment||'"'
  67.  END
  68.  
  69. ERROR:
  70. EXIT 0
  71.